perm filename T.F4[TMP,LCS] blob sn#132740 filedate 1974-11-27 generic text, type T, neo UTF8
00010		DIMENSION IJK(3)
00100		TYPE 1
00200	1	FORMAT(' TYPE 3 NUMBERS -  ',$)
00300		ACCEPT 2,IJK
00400	2	FORMAT(3I)
00600		TYPE 2,IJK
00700		CALL PAC(N,IJK)
00800		CALL UNPAC(N,IJK)
00900		TYPE 2,IJK
01000		END